home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 002a / corewar.zip / DAEMON.PRG < prev    next >
Text File  |  1990-07-05  |  564b  |  30 lines
  1. BGN Daemon            ;Combination Bug/Demon
  2.     SPL I            ;Righthand bug
  3.     SPL F            ;Parasite
  4.     JMP C            ;Lefthand bug
  5. A    DAT -Grid_Size-1
  6. B    DAT 0
  7. C    JWN 2 @A        ;Don't hit self
  8.     MOV #0 @A        ;Zero bomb
  9.     RND B #3        ;Random walk
  10.     SUB #Grid_Size+2 A    ;Up a row
  11.     ADD B A
  12.     JMP C
  13. D    DAT -Grid_Size
  14. E    DAT 0
  15. F    JWN 2 @D        ;Don't infect self
  16.     SPL @D            ;Parasite bomb
  17.     RND E #3        ;Random walk
  18.     SUB #Grid_Size+1 D    ;Up a row
  19.     ADD E D
  20.     JMP F
  21. G    DAT -Grid_Size+1
  22. H    DAT 0
  23. I    JWN 2 @G        ;All exactly like the lefthand bug
  24.     MOV #0 @G
  25.     RND H #3
  26.     SUB #Grid_Size G
  27.     ADD H G
  28.     JMP I
  29. END
  30.